home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Custom_Cal2150914282009.psc / Calendar Control / Form1.frm < prev    next >
Text File  |  2009-04-28  |  3KB  |  89 lines
  1. VERSION 5.00
  2. Object = "*\A..\Calendar\Project1.vbp"
  3. Begin VB.Form Form1 
  4.    ClientHeight    =   6525
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   7530
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   6525
  10.    ScaleWidth      =   7530
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin Project1.RCalendar RCalendar1 
  13.       Height          =   3735
  14.       Left            =   1440
  15.       TabIndex        =   0
  16.       Top             =   960
  17.       Width           =   4095
  18.       _ExtentX        =   7223
  19.       _ExtentY        =   6588
  20.       HeadingColor    =   -2147483630
  21.       TitleColor      =   -2147483630
  22.       BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  23.          Name            =   "Arial"
  24.          Size            =   9.75
  25.          Charset         =   0
  26.          Weight          =   400
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       BeginProperty HeadingFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  32.          Name            =   "Arial"
  33.          Size            =   9.75
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       BeginProperty TitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  41.          Name            =   "Arial"
  42.          Size            =   12
  43.          Charset         =   0
  44.          Weight          =   700
  45.          Underline       =   0   'False
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       BeginProperty MonthYearFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  50.          Name            =   "Arial"
  51.          Size            =   9.75
  52.          Charset         =   0
  53.          Weight          =   400
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.    End
  59. End
  60. Attribute VB_Name = "Form1"
  61. Attribute VB_GlobalNameSpace = False
  62. Attribute VB_Creatable = False
  63. Attribute VB_PredeclaredId = True
  64. Attribute VB_Exposed = False
  65.  
  66.  
  67.  
  68. Private Sub Calendar1_KeyPress(KeyAscii As Integer)
  69.     MsgBox KeyAscii
  70. End Sub
  71.  
  72. Private Sub UserControl11_KeyDown(KeyCode As Integer, Shift As Integer)
  73.     MsgBox KeyCode
  74. End Sub
  75.  
  76. Private Sub Command1_Click()
  77.         RCalendar1.Value = Date
  78.     End Sub
  79.  
  80. Private Sub Command2_Click()
  81. UserControl11.daycolor = vbBlue
  82. End Sub
  83.  
  84.  
  85. Private Sub UserControl11_Click()
  86.  
  87. End Sub
  88.  
  89.